﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<!--#include file="conn.asp"-->
<%	
select case v
case "0"
we0="<br/>"
%>
<card id="main" title="观音灵签,抽签,抽签算命"><p align="<%=qingtian.px%>">
<%
case "1"
zi="<span style=""color:#FF5500"">"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
%>
<title>观音灵签,抽签,抽签算命</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%
End Select
%>
<%
on error resume next
'获取签数
if request.Cookies("jsj148")("guanyin") = "" then
'产生随机数
dim num,sqlgy,picnum,gysmile
randomize
num=int((rnd*100)+1)
response.Cookies("jsj148")("guanyin")=num
Response.Cookies("jsj148")("guanyin").Expires=date+1
else
num=request.Cookies("jsj148")("guanyin")
end if
sqlgy="select * from guanyin where id="&num
set rsgy=connnn.execute(sqlgy)
id=rsgy("id")
%>
<%=dao%>您抽到的是第<%=rsgy("id")%>签<%=we0%><%=we%>
第<%=rsgy("name")%>，<%=rsgy("shangxia")%>《《古书》》<%=rsgy("title")%>，<%=rsgy("gongwei")%><br/>
[诗曰]:<%=rep(rsgy("shiyue"))%><br/>
[诗意]:<%=rep(rsgy("shiyi"))%><br/>
[解曰]:<%=rep(rsgy("jieyue"))%><br/>
[仙机]:<%=rep(rsgy("xianji"))%><br/>
[故事]:<%=rep(rsgy("gushi"))%><br/>
<%=we0%><%=sou%>
----------<%=we0%><%=we%>
<%
Response.Write("<a href='index.asp?sid=" & sidd & "'>返回上级</a>")
Response.Write we0
end Function
%>
<%

'替换换行符的过滤函数
Function rep(content)
rep=replace(content,vbCrLf,"<br/>")
end Function
%>









